home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b3.d64 / program30 < prev    next >
Text File  |  2007-02-28  |  685b  |  36 lines
  1. 0010 // PROGRAM 30
  2. 0020 //
  3. 0030 // COMELY KATE
  4. 0040 //
  5. 0050 // TO GIVE CURRENCIES OF EEC
  6. 0060 //
  7. 0070 DIM COUNTRY$ OF 11
  8. 0080 PRINT 
  9. 0090 INPUT "WHAT COUNTRY ? ": COUNTRY$
  10. 0100 PRINT 
  11. 0110 CASE COUNTRY$ OF
  12. 0120 WHEN "BELGIUM"
  13. 0130 PRINT "BELGIAN FRANC"
  14. 0140 WHEN "BRITAIN"
  15. 0150 PRINT "POUND"
  16. 0160 WHEN "DENMARK"
  17. 0170 PRINT "KRONA"
  18. 0180 WHEN "FRANCE"
  19. 0190 PRINT "FRANC"
  20. 0200 WHEN "GERMANY"
  21. 0210 PRINT "DEUTCHMARK"
  22. 0220 WHEN "GREECE"
  23. 0230 PRINT "DRACHMA"
  24. 0240 WHEN "IRELAND"
  25. 0250 PRINT "PUNT"
  26. 0260 WHEN "ITALY"
  27. 0270 PRINT "LIRA"
  28. 0280 WHEN "LUXEMBOURG"
  29. 0290 PRINT "FRANC"
  30. 0300 WHEN "NETHERLANDS"
  31. 0310 PRINT "GUILDER"
  32. 0320 OTHERWISE 
  33. 0330 PRINT "SORRY! NOT IN EED"
  34. 0340 ENDCASE 
  35. 0350 END 
  36.